<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>无标题文档</title>
<link rel="stylesheet" href="lib/sheet.css" type="text/css">
</head>

<body>

<%
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT *  FROM yh"
	rs.Open sql,conn,1,1

%>

<table cellspacing="1" cellpadding="2" border="0" bgcolor="black" width="100%">
  <tr bgcolor="silver">
      <th>ID</th>
      <th>用户名</th>
      <th>权限</th>
      <th>姓名</th>
      <th>岗位</th>
      <th>删除</th>
    </tr>
	<% while not rs.eof %>
  	<tr bgcolor="#efefef" align="center">
      <td><a href="edit_user.asp?id=<%=rs("id")%>"><%=rs("id")%></a></td>
      <td><%=rs("user")%></td>
      <td><%
	  select case rs("flag")
		case 1 response.write("查询")
		case 3 response.write("查询、添加")
		case 4 response.write("查询、添加、编辑")
		case 5 response.write("查询、添加、编辑、删除")
		case 15 response.write("管理员")
	  end select
	  %></td>
      <td><%=rs("name")%></td>
      <td><%
	  select case rs("post")
		case 1 response.write("船务")
		case 2 response.write("车队")
		case 0 response.write("全部")
	  end select
	  %></td>
      <td><a href="del_user.asp?id=<%=rs("id")%>">删除</a></td>
    </tr>
	<% rs.movenext
	wend %>
  </table>
<% rs.close %>
<p><a href="javascript:history.go(-1)">&lt;&lt;返回上一页</a></p>
</body>
</html>
